home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_shrmp.scp < prev    next >
Text File  |  1994-12-01  |  13KB  |  748 lines
  1. { TSHR2
  2.     @Ç¥   ACTIVATE_SHRIMP2
  3. }
  4.  
  5. { READY_SHRIMP1
  6.  
  7.     ^            = $Ç╗   
  8.  
  9.     I ( ^îÜ            = $Ç╗    ) THEN
  10.         é     
  11.  
  12.     I  @Ç¢              ( SHRIMP1 ) = $Ç╗    THEN
  13.         {
  14.         Q      ("CAN'T FIND Shrimp1 !!")
  15.         é     
  16.         }
  17.  
  18.     ¥                 AVDHALL 400
  19.  
  20.     è          ON
  21.     ï           PLAYER
  22.  
  23.     Y                 DGS1 DGS2 DGS3 DGS4 ALC4 ALC1
  24.  
  25.     ö     SHRIMP1
  26.     G     PSHRIMP1
  27.     £     FSHRIMP1
  28.  
  29.     ª             PSHRIMP1
  30.  
  31.     Z       CURFIG OFF
  32.  
  33.     M      FEED CONTINUE
  34.     ^êÄ               = @Çç     (`⪠       , SHRIMP)
  35.     @Çï                 (^êÄ              , 2000, 11025, 30)
  36. }
  37.  
  38. { READY_SHRIMP2
  39.  
  40.     I ( ^çô              = $Ç╗    ) THEN
  41.         é     
  42.  
  43.     I ( ^           = $Ç╗    ) THEN
  44.         é     
  45.  
  46.     I  @Ç¢              ( SHRIMP2 ) = $Ç╗    THEN
  47.         {
  48.         Q      ("CAN'T FIND Shrimp2 !!")
  49.         é     
  50.         }
  51.  
  52.     ¥                 AVDHALL 400
  53.  
  54.     è          ON
  55.     ï           PLAYER
  56.  
  57.     Y                 DGS1 DGS2 DGS3 DGS4 ALC4 ALC1
  58.  
  59.     ö     SHRIMP2
  60.     G     PSHRIMP2
  61.     £     FSHRIMP1
  62.  
  63.     ª             PSHRIMP2
  64.  
  65.     Z       CURFIG OFF
  66.  
  67.     M      FEED CONTINUE
  68.     ^êÄ               = @Çç     (`⪠       , SHRIMP)
  69.     @Çï                 (^êÄ              , 2000, 11025, 30)
  70. }
  71.  
  72. { REREADY_SHRIMP3
  73.  
  74.     I ( ^î₧            = $Ç╗    ) THEN
  75.         é     
  76.  
  77.     I  @Ç¢              ( SHRIMP3 ) = $Ç╗    THEN
  78.         {
  79.         Q      ("CAN'T FIND Shrimp3 !!")
  80.         é     
  81.         }
  82.  
  83.     K   
  84.     ^            = $Ç╗   
  85.     ^î₧             = $Ç╗   
  86.  
  87.     W    20 SECONDS
  88.     @Çì      CHECKACTIVATESHRIMP
  89.  
  90. }
  91.  
  92.  
  93. { READY_SHRIMP3 _POSITION
  94.  
  95.     I ( ^î₧            = $Ç╗    ) THEN
  96.         é     
  97.  
  98.     I  @Ç¢              ( SHRIMP3 ) = $Ç╗    THEN
  99.         {
  100.         Q      ("CAN'T FIND Shrimp3 !!")
  101.         é     
  102.         }
  103.  
  104.     è          ON
  105.     ï           PLAYER
  106.  
  107.     Y                 TUN1 TUN2
  108.  
  109.     ö     SHRIMP3
  110.  
  111.     I ( ~ÇÇ       = 1 ) THEN
  112.         G  PS1
  113.     E    I ( ~ÇÇ       = 2 ) THEN
  114.         G  PS2
  115.     E    I ( ~ÇÇ       = 3 ) THEN
  116.         G  PS3
  117.     E   
  118.         G  PS4
  119.  
  120.     £    PIL_BASE
  121.  
  122.     I ( ~ÇÇ       = 1 ) THEN
  123.         ª             PS1
  124.     E    I ( ~ÇÇ       = 2 ) THEN
  125.         ª             PS2
  126.     E    I ( ~ÇÇ       = 3 ) THEN
  127.         ª             PS3
  128.     E   
  129.         ª             PS4
  130.  
  131.     Z       CURFIG OFF
  132.  
  133.     M      ATK_STAND CONTINUE
  134.     ^êÉ               = @Çç     (`⪠       , SHRIMP)
  135.     @Çï                 (^êÉ              , 2000, 11025, 30)
  136.  
  137. }
  138.  
  139. { ACTIVATE_SHRIMP1
  140.  
  141.     I ( ^îÜ            = $Ç╗    ) THEN
  142.         é     
  143.  
  144.     I ( ^            ) THEN
  145.         é     
  146.  
  147.     I  @Ç¢              ( SHRIMP1 ) = $Ç╗    THEN
  148.         {
  149.         Q      ("CAN'T FIND Shrimp1 !!")
  150.         é     
  151.         }
  152.  
  153.     ┬             
  154.     ║            ON
  155.  
  156.     ^âÜ                = $Ç╝  
  157.  
  158.     W    30      // ADJUST THIS NUMBER TO AFFECT "feed" TIME...
  159.  
  160.     M      RISE_FROM_FEED CONTINUE
  161.               (^⢠           )
  162.     @Çï                 (^êÄ              , 11025, 13000, 30)
  163.  
  164.     :WAIT
  165.     â      
  166.     I  @Çô        (RISE_FROM_FEED) THEN
  167.         J    #Çå 
  168.  
  169.     M      ATK_STAND CONTINUE
  170.     W    1 SECOND
  171.     ┴            
  172.     // @@@ PLEASE TRANSLATE
  173.     ^ïÜ            = @Ç║       `è╡                $Ç╜      "The alien creature shrieks at you..."
  174.     ^ïÖ            = @Çÿ            ( `è╡                )
  175.     ║            OFF
  176.  
  177.     ^âÜ                = $Ç╗   
  178.  
  179.     ^            = $Ç╝  
  180. }
  181.  
  182. { ACTIVATE_SHRIMP2
  183.  
  184.     I ( ^çô              = $Ç╗    ) THEN
  185.         é     
  186.  
  187.     I ( ^           = $Ç╗    ) THEN
  188.         é     
  189.  
  190.     I ( ^            ) THEN
  191.         é     
  192.  
  193.     I  @Ç¢              ( SHRIMP2 ) = $Ç╗    THEN
  194.         {
  195.         Q      ("CAN'T FIND Shrimp2 !!")
  196.         é     
  197.         }
  198.  
  199.     W    3 SECONDS
  200.  
  201.     ┬             
  202.     ║            ON
  203.  
  204.     //@@@ PLEASE TRANSLATE
  205.     ^ïÜ            = @Ç║       `è╢                $Ç╜      "You hear an alien shriek from above..."
  206.     ^ïÖ            = @Çÿ            ( `è╢                )
  207.     @Çï                 (^êÄ              , 11025, 13000, 30)
  208.     M      DROP_DOWN CONTINUE
  209.  
  210.     :WAIT
  211.     â      
  212.     I  @Çô        (DROP_DOWN) THEN
  213.         J    #Çê 
  214.  
  215.     M      ATK_STAND CONTINUE
  216.     W    1 SECOND
  217.     ┴            
  218.     ║            OFF
  219.  
  220.     ^            = $Ç╝  
  221. }
  222.  
  223. { ACTIVATE_SHRIMP3
  224.  
  225.     I ( ^î₧            = $Ç╗    ) THEN
  226.         é     
  227.  
  228.     I ( ^            ) THEN
  229.         é     
  230.  
  231.     I  @Ç¢              ( SHRIMP3 ) = $Ç╗    THEN
  232.         {
  233.         Q      ("CAN'T FIND Shrimp3 !!")
  234.         é     
  235.         }
  236.  
  237.     ┬             
  238.     ║            ON
  239.  
  240.     // @@@ PLEASE TRANSLATE
  241.     ^ïÜ            = @Ç║       `è╢                $Ç╜      "You hear an alien shriek from above..."
  242.     ^ïÖ            = @Çÿ            ( `è╢                )
  243.     M      DESCEND
  244.     M      DESCEND
  245.     M      DESCEND CONTINUE
  246.     @Çï                 (^êÄ              , 11025, 13000, 30)
  247.  
  248.     :WAIT
  249.     â      
  250.     I  @Çô        ( DESCEND ) THEN
  251.         J    #Çè 
  252.  
  253.     M      ATK_STAND CONTINUE
  254.     W    1 SECOND
  255.     ┴            
  256.     ║            OFF
  257.  
  258.     ^            = $Ç╝  
  259.  
  260. }
  261.  
  262. { SHRIMP1_AI
  263.  
  264.     P        ~ÇÇ  
  265.  
  266.     ^       = 0  // SET SUPER-RECOIL COUNTERS TO ZERO
  267.  
  268.     :TOP
  269.  
  270.     â      
  271.  
  272.     I ( ^            = $Ç╗    ) THEN
  273.         J    #Çî
  274.  
  275.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  276.  
  277.     I ( .ÇéÇâ               != $üì            ) THEN
  278.         J    #Çî
  279.  
  280.     I ( @ÇÄ             (ALC4) ) THEN
  281.         {
  282.         £    RUNDRG3 GRADUAL
  283.         M      ATK_M8 CONTINUE
  284.         :WAIT
  285.         â      
  286.         I ( @ÇÄ             (ALC4) ) THEN
  287.             J    #Çì 
  288.         }
  289.  
  290.     // DODGE BULLETS
  291.     @Ç¢              ( PLAYER )
  292.     I  (@Çô        ("shoot")  OR @Çô        ("atk_shoot") ) THEN
  293.         {
  294.         @Ç¢              ( SHRIMP1 )
  295.         N      (@Çà    ( 0, 1 ))
  296.             {
  297.             U    0
  298.                 M      ATK_M1 CONTINUE
  299.                 X ÇÇ 
  300.             U    1
  301.                 M      ATK_M3 CONTINUE
  302.                 X ÇÇ 
  303.             }
  304.         W    45
  305.         J    #Çî
  306.         }
  307.  
  308.     // REGULAR MOVEMENT
  309.     @Ç¢              ( SHRIMP1 )
  310.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 8
  311.  
  312.     I  ( ~ÇÇ   > 0 ) THEN
  313.         {
  314.         N     ( ~ÇÇ   )
  315.             {
  316.             U    1
  317.             I  @Çô        ("atk_m1") != $Ç╝   THEN
  318.                 M      ATK_M1 CONTINUE
  319.                 X Çü 
  320.             U    2
  321.             I  @Çô        ("atk_m2") != $Ç╝   THEN
  322.                 M      ATK_M2 CONTINUE
  323.                 X Çü 
  324.             U    3
  325.             I  @Çô        ("atk_m3") != $Ç╝   THEN
  326.                 M      ATK_M3 CONTINUE
  327.                 X Çü 
  328.             U    4
  329.             U    6
  330.                 ┴            
  331.                 X Çü 
  332.             U    7
  333.             I  @Çô        ("atk_m7") != $Ç╝   THEN
  334.                 M      ATK_M7 CONTINUE
  335.                 X Çü 
  336.             U    8
  337.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  338.                 M      ATK_M8 CONTINUE
  339.                 X Çü 
  340.             U    9
  341.             I  @Çô        ("atk_m9") != $Ç╝   THEN
  342.                 M      ATK_M9 CONTINUE
  343.                 X Çü 
  344.             U    10
  345.             I  @Çô        ("atk_m10") != $Ç╝   THEN
  346.                 M      ATK_M10 CONTINUE
  347.                 X Çü 
  348.             }
  349.         }
  350.     E               // POSSIBLE ATTACK HERE
  351.         {
  352.         M      ATTACK_MINOR
  353.         }
  354.  
  355.     â      
  356.     J    #Çî
  357.  
  358. }
  359.  
  360. { SHRIMP2_AI
  361.  
  362.     P        ~ÇÇ  
  363.  
  364.     ^       = 0  // SET SUPER-RECOIL COUNTERS TO ZERO
  365.  
  366.     :TOP
  367.  
  368.     â      
  369.  
  370.     I ( ^            = $Ç╗    ) THEN
  371.         J    #ÇÅ
  372.  
  373.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  374.  
  375.     I ( .ÇéÇâ               != $üì            ) THEN
  376.         J    #ÇÅ
  377.  
  378.     I ( @ÇÄ             (ALC4) ) THEN
  379.         {
  380.         £    RUNDRG3 GRADUAL
  381.         M      ATK_M8 CONTINUE
  382.         :WAIT
  383.         â      
  384.         I ( @ÇÄ             (ALC4) ) THEN
  385.             J    #ÇÉ 
  386.         }
  387.  
  388.     // DODGE BULLETS
  389.     @Ç¢              ( PLAYER )
  390.     I  (@Çô        ("shoot")  OR @Çô        ("atk_shoot") ) THEN
  391.         {
  392.         @Ç¢              ( SHRIMP2 )
  393.         N      (@Çà    ( 0, 1 ))
  394.             {
  395.             U    0
  396.                 M      ATK_M1 CONTINUE
  397.                 X Çé 
  398.             U    1
  399.                 M      ATK_M3 CONTINUE
  400.                 X Çé 
  401.             }
  402.         W    45
  403.         J    #ÇÅ
  404.         }
  405.  
  406.     // REGULAR MOVEMENT
  407.     @Ç¢              ( SHRIMP2 )
  408.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 8
  409.  
  410.     I  ( ~ÇÇ   > 0 ) THEN
  411.         {
  412.         N     ( ~ÇÇ   )
  413.             {
  414.             U    1
  415.             I  @Çô        ("atk_m1") != $Ç╝   THEN
  416.                 M      ATK_M1 CONTINUE
  417.                 X Çâ 
  418.             U    2
  419.             I  @Çô        ("atk_m2") != $Ç╝   THEN
  420.                 M      ATK_M2 CONTINUE
  421.                 X Çâ 
  422.             U    3
  423.             I  @Çô        ("atk_m3") != $Ç╝   THEN
  424.                 M      ATK_M3 CONTINUE
  425.                 X Çâ 
  426.             U    4
  427.             U    6
  428.                 ┴            
  429.                 X Çâ 
  430.             U    7
  431.             I  @Çô        ("atk_m7") != $Ç╝   THEN
  432.                 M      ATK_M7 CONTINUE
  433.                 X Çâ 
  434.             U    8
  435.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  436.                 M      ATK_M8 CONTINUE
  437.                 X Çâ 
  438.             U    9
  439.             I  @Çô        ("atk_m9") != $Ç╝   THEN
  440.                 M      ATK_M9 CONTINUE
  441.                 X Çâ 
  442.             U    10
  443.             I  @Çô        ("atk_m10") != $Ç╝   THEN
  444.                 M      ATK_M10 CONTINUE
  445.                 X Çâ 
  446.             }
  447.         }
  448.     E               // POSSIBLE ATTACK HERE
  449.         {
  450.         M      ATTACK_MINOR
  451.         }
  452.  
  453.     â      
  454.     J    #ÇÅ
  455.  
  456. }
  457.  
  458. { SHRIMP3_AI
  459.  
  460.     P        ~ÇÇ  
  461.  
  462.     ^       = 0  // SET SUPER-RECOIL COUNTERS TO ZERO
  463.  
  464.     :TOP
  465.  
  466.     â      
  467.  
  468.     I ( ^            = $Ç╗    ) THEN
  469.         J    #ÇÆ
  470.  
  471.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  472.  
  473.     I ( .ÇéÇâ               != $üì            ) THEN
  474.         J    #ÇÆ
  475.  
  476.     // DODGE BULLETS
  477.     @Ç¢              ( PLAYER )
  478.     I  (@Çô        ("shoot")  OR @Çô        ("atk_shoot") ) THEN
  479.         {
  480.         @Ç¢              ( SHRIMP3 )
  481.         N      (@Çà    ( 0, 1 ))
  482.             {
  483.             U    0
  484.                 M      ATK_M1 CONTINUE
  485.                 X Çä 
  486.             U    1
  487.                 M      ATK_M3 CONTINUE
  488.                 X Çä 
  489.             }
  490.         W    45
  491.         J    #ÇÆ
  492.         }
  493.  
  494.     // REGULAR MOVEMENT
  495.     @Ç¢              ( SHRIMP3 )
  496.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 8
  497.  
  498.     I  ( ~ÇÇ   > 0 ) THEN
  499.         {
  500.         N     ( ~ÇÇ   )
  501.             {
  502.             U    1
  503.             I  @Çô        ("atk_m1") != $Ç╝   THEN
  504.                 M      ATK_M1 CONTINUE
  505.                 X Çà 
  506.             U    2
  507.             I  @Çô        ("atk_m2") != $Ç╝   THEN
  508.                 M      ATK_M2 CONTINUE
  509.                 X Çà 
  510.             U    3
  511.             I  @Çô        ("atk_m3") != $Ç╝   THEN
  512.                 M      ATK_M3 CONTINUE
  513.                 X Çà 
  514.             U    4
  515.             U    6
  516.                 ┴            
  517.                 X Çà 
  518.             U    7
  519.             I  @Çô        ("atk_m7") != $Ç╝   THEN
  520.                 M      ATK_M7 CONTINUE
  521.                 X Çà 
  522.             U    8
  523.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  524.                 M      ATK_M8 CONTINUE
  525.                 X Çà 
  526.             U    9
  527.             I  @Çô        ("atk_m9") != $Ç╝   THEN
  528.                 M      ATK_M9 CONTINUE
  529.                 X Çà 
  530.             U    10
  531.             I  @Çô        ("atk_m10") != $Ç╝   THEN
  532.                 M      ATK_M10 CONTINUE
  533.                 X Çà 
  534.             }
  535.         }
  536.     E               // POSSIBLE ATTACK HERE
  537.         {
  538.         M      ATTACK_MINOR
  539.         }
  540.  
  541.     â      
  542.     J    #ÇÆ
  543.  
  544. }
  545.  
  546. { SHRIMP1_ATK_STAND
  547.  
  548.     I ( .ÇéÇâ               == $üÅ                 ) THEN
  549.         M      FLOAT_RECOIL CONTINUE
  550.     E   
  551.         M      ATK_STAND CONTINUE
  552. }
  553.  
  554. { SHRIMP2_ATK_STAND
  555.  
  556.     I ( .ÇéÇâ               == $üÅ                 ) THEN
  557.         M      FLOAT_RECOIL CONTINUE
  558.     E   
  559.         M      ATK_STAND CONTINUE
  560. }
  561.  
  562. { SHRIMP3_ATK_STAND
  563.  
  564.     I ( .ÇéÇâ               == $üÅ                 ) THEN
  565.         M      FLOAT_RECOIL CONTINUE
  566.     E   
  567.         M      ATK_STAND CONTINUE
  568. }
  569.  
  570. { SHRIMP_DEFEND
  571.  
  572.     I ( .ÇéÇâ               = $üÅ                 ) THEN
  573.         é     
  574.  
  575.     A  OFF
  576.  
  577.     .ÇéÇâ               = $üÅ                
  578.     M      START_RECOIL
  579.     r          CURFIG ON
  580.     M      FLOAT_RECOIL CONTINUE
  581.  
  582.     W    5 SECONDS
  583.     r          CURFIG OFF
  584.     ñ            CURFIG
  585.     M      BACK_FROM_RECOIL
  586.     .ÇéÇâ               = $üì           
  587.  
  588.     A  ON
  589.  
  590. }
  591.  
  592. { SHRIMP_STIMULUS( _DAMAGE )
  593.  
  594. P        ~Çü   
  595.  
  596. :GOT_HIT
  597.  
  598.     I ( @Çó            ( ^ïÜ            ) ) THEN
  599.                 ( ^ïÖ           )
  600.  
  601.     // INVULNEABLE IF DEFENDING
  602.     I ( .ÇéÇâ               == $üÅ                 ) THEN
  603.         {
  604.         @Çå    `äÿ            200
  605.         .ÇéÇÇ        += ~ÇÇ    
  606.         é     
  607.         }
  608.     E   
  609.         @Çì      SHRIMP_DEFEND
  610.     é     
  611.  
  612. :PLAYER_SUPER_RECOILED
  613.     A  OFF
  614.     //@@@ PLEASE TRANSLATE
  615.     ^ïÜ            = @Ç║       `è╖               $Ç╜      "The alien shrieks triumphantly."
  616.     ^ïÖ            = @Çÿ            ( `è╖               )
  617.  
  618.     M      ATK_M2 CONTINUE
  619.     W    20
  620.     M      ATK_STAND CONTINUE
  621.     @Ç¥   PAUSE_FOR_SUBTITLE
  622.     A  ON
  623.     é     
  624.  
  625. :KILLED_PLAYER
  626.     A  OFF
  627.     ┴            
  628.     M      ATK_STAND CONTINUE
  629.     W    1 SECONDS
  630.     //@@@ PLEASE TRANSLATE
  631.     @Ç║       `è╕                 $Ç╜      "The alien utters a victory cry~in preparation for its feast."
  632.  
  633.     é     
  634. }
  635.  
  636. { BLOW_SHRIMP
  637.  
  638.     @Çå   ( `ǽ         )
  639.             (^êÄ              )
  640.             (^êÅ              )        
  641.             (^êÉ              )
  642.     Ü            ( 20,20,20, 1 )
  643.     ú             ( BOOM, BLUEC, CURFIG )
  644.     K    CURFIG
  645.     l       CURFIG
  646. }
  647.  
  648. { SHRIMP1_DEATH
  649.  
  650.     @Çì      BLOW_SHRIMP
  651.  
  652.     ^âÜ                = $Ç╝  
  653.     I  @Çó            (^⢠           ) THEN           (^⢠           )
  654.  
  655.     @Ç¢              (PLAYER)
  656.     A  OFF
  657.     M      ATK_M2 CONTINUE
  658.     W    20
  659.     ┴            
  660.     è          OFF
  661.     M      STAND CONTINUE
  662.     W    1 SECONDS
  663.     M      TAUNT2 CONTINUE
  664.     W    1 SECONDS
  665.     @Çì      GROWL 5
  666.     //@@@ PLEASE TRANSLATE
  667.                 @Ç║       `ç╢                $üé     "What a disgusting smell."
  668.     M      STAND CONTINUE
  669.     â      
  670.     A  ON
  671.     ^îÜ            = $Ç╗   
  672.  
  673.     ^âÜ                = $Ç╗   
  674.  
  675.     W    5 SECONDS
  676.     i           LEX SHRIMP
  677. }
  678.  
  679. { SHRIMP2_DEATH
  680.  
  681.     @Çì      BLOW_SHRIMP
  682.  
  683.     @Ç¢              (PLAYER)
  684.     A  OFF
  685.     M      ATK_M2 CONTINUE
  686.     W    20
  687.     ┴            
  688.     è          OFF
  689.     M      STAND CONTINUE
  690.     W    1 SECONDS
  691.     M      TAUNT2 CONTINUE
  692.     W    1 SECONDS
  693.     @Çì      GROWL 5
  694.     //@@@
  695.                 @Ç║       `ç╖                $üé     "Little alien intestines everywhere. Lovely."
  696.     M      STAND CONTINUE
  697.     â      
  698.     A  ON
  699.     ^           = $Ç╗   
  700.  
  701.     W    5 SECONDS
  702.     i           LEX SHRIMP
  703. }
  704.  
  705. { SHRIMP3_DEATH
  706.     ^î₧             = $Ç╗   
  707.     ^            = $Ç╗   
  708.     @Çì      BLOW_SHRIMP
  709.  
  710.     @Ç¢              (PLAYER)
  711.     A  OFF
  712.     M      ATK_M2 CONTINUE
  713.     W    20
  714.     ┴            
  715.     è          OFF
  716.     M      STAND CONTINUE
  717.     W    1 SECONDS
  718.     M      TAUNT2 CONTINUE
  719.     W    1 SECONDS
  720.     @Çì      GROWL 5
  721.     //@@@
  722.                 @Ç║       `ç╕                $üé     "I hope you were the last one."
  723.     M      STAND CONTINUE
  724.     â      
  725.     A  ON
  726.  
  727.     W    5 SECONDS
  728.     i           LEX SHRIMP
  729.  
  730.     W    15 SECONDS
  731.     @Çì      CHECKACTIVATESHRIMP
  732. }
  733.  
  734. { SHRIMP_WOUNDS
  735.     P        ~ÇÇ     
  736.  
  737.     @Ç¢              ( SHRIMP )
  738.  
  739.     ~ÇÇ      = .ÇéÇÇ       
  740.     I  ( ~ÇÇ      < 50 ) THEN
  741.         {
  742.         w     CURFIG DRAWONLY SHRIMP1 PICTURE 1
  743.         }
  744. }
  745.  
  746.  
  747. //$ 26 - version number
  748.